home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of www.BestZips.com (Collector's Edition)
/
Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO
/
grapprog
/
splt300w.zip
/
TDXY.ZIP
/
T2-14.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-03-21
|
230b
|
13 lines
10 OPEN "t2-14.plt" FOR OUTPUT AS #1
20 PRINT #1,"A2500,1000"
30 PRINT #1,"G500,0,360"
40 A=0
50 FOR X=1 TO 5
60 READ B
70 A=A+B
80 PRINT #1,"K";A;",500,0"
90 NEXT X
100 PRINT #1,"H"
110 DATA 35,25,20,15,5
120 END